home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / RandomBackground.dopus5 < prev    next >
Text File  |  1998-11-07  |  473b  |  18 lines
  1. /* RandomBackground.dopus5 */
  2. options results
  3. signal on halt
  4. address command 'Copy "DOplus:tutorial/Arexx Tutorial/TuteRexx/Extras/#?.iff" T: QUIET CLONE'
  5. if ~show('l','rexxsupport.library') then
  6.   call addlib('rexxsupport.library',,-30)
  7. address 'DOPUS.1'
  8. pattern = 'T:#?.iff'
  9. do forever
  10.   dopus set background '"'pattern'"' desktop custom
  11.   dopus refresh background custom
  12.   call delay(1500)
  13. end
  14. halt:
  15. dopus refresh background
  16. address command 'Delete T:#?.iff QUIET'
  17. exit
  18.